home *** CD-ROM | disk | FTP | other *** search
/ Study Abroad in Canada / Study Abroad in Canada.iso / pc / open.dxr / ì‡ë†_107_BGM ON-OFFÉXÉNÉäÉvÉg.ls < prev    next >
Encoding:
Text File  |  2000-08-21  |  395 b   |  20 lines
  1. property spriteNum
  2.  
  3. on mouseDown me
  4.   if sound(1).volume > 0 then
  5.     sound(1).volume = 0
  6.     sprite(spriteNum).member = member("BGM-on")
  7.   else
  8.     sound(1).volume = 255
  9.     sprite(spriteNum).member = member("BGM-off")
  10.   end if
  11. end
  12.  
  13. on enterFrame
  14.   if sound(1).volume > 0 then
  15.     sprite(spriteNum).member = member("BGM-off")
  16.   else
  17.     sprite(spriteNum).member = member("BGM-on")
  18.   end if
  19. end
  20.